home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir27 / grphca22.zip / EXAMPLES.ZIP / ELEC4.PLT < prev    next >
Text File  |  1993-02-03  |  315b  |  17 lines
  1. # phase frequency response
  2. paper size 11 by 8.5
  3. y lin
  4. x log
  5. grid
  6. map x 1.1 90000.0
  7. draw x y
  8. title "Phase Frequency Response"
  9. xlabel "jw (radians)"
  10. ylabel "Phase of A(jw) (degrees)"
  11. p1 = 10
  12. p2 = 10000
  13. A(jw) = ({0,1}*jw/({0,1}*jw+p1)) * (1/(1+{0,1}*jw/p2))
  14. dummy jw
  15. color lred
  16. plot 180/pi*arg(A(jw))
  17.